home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / spintest.arc / SPINTIME.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-06-30  |  1.7 KB  |  26 lines
  1. 10 DEFINT A-Z: DIM D(500): KEY OFF: CLS: PRINT " Gibson Research": LOCATE 1,61
  2. 20 PRINT "PaperWare Converter" : FOR Z = 1 TO 80 : PRINT CHR$(205); : NEXT
  3. 30 READ F$ : READ FL : LOCATE 4,20 : PRINT "Checking the DATA for: ";F$
  4. 40 IF X=FL THEN 80 ELSE READ N$ : N=VAL("&H"+N$) : T=T+N : C=C+1
  5. 50 IF C<>15 THEN X=X+1 : D(X)=N : GOTO 40
  6. 60 IF T MOD 256 THEN PRINT : PRINT "An error is present in line:";1010+LN :END
  7. 70 LN=LN+10 : T=0 : C=0 : GOTO 40
  8. 80 PRINT : PRINT "All DATA Statements are OKAY! ... now creating ";F$ : PRINT
  9. 90 OPEN F$ AS #1 LEN=1 : FIELD #1,1 AS DT$ : FOR X = 1 TO FL
  10. 100 LSET DT$=CHR$(D(X)) : PUT #1 : NEXT : CLOSE ALL
  11. 110 PRINT "You now have the new command ";F$;" in your directory." : SYSTEM
  12. 120 '-------------------------------------------------------------------------
  13. 1000 DATA   "SPINTIME.COM", 162
  14. 1010 DATA   FC, BC, A2, 09, BA,   66, 01, B4, 09, CD,   21, E8, 39, 00, B0
  15. 1020 DATA   B4, 00, CD, 1A, 81,   C2, 44, 04, 8B, F2,   BF, 02, 00, E8, B4
  16. 1030 DATA   29, 00, 47, B4, 00,   CD, 1A, 3B, D6, 75,   F4, 8B, C7, B9, 70
  17. 1040 DATA   0A, 00, BF, 87, 01,   33, D2, F7, F1, 80,   C2, 30, 4F, 88, 79
  18. 1050 DATA   15, 3D, 00, 00, 75,   F1, BA, 82, 01, B4,   09, CD, 21, CD, 93
  19. 1060 DATA   20, B8, 01, 02, 8C,   CB, 81, C3, 9B, 10,   81, E3, 00, F0, 8B
  20. 1070 DATA   8E, C3, 33, DB, B9,   01, 00, BA, 80, 00,   CD, 13, BA, 92, 81
  21. 1080 DATA   01, 72, DC, C3, 0D,   0A, 48, 61, 72, 64,   20, 64, 69, 73, F8
  22. 1090 DATA   6B, 20, 73, 70, 69,   6E, 20, 72, 61, 74,   65, 20, 69, 73, F3
  23. 1100 DATA   2E, 2E, 2E, 24, 20,   20, 20, 20, 20, 20,   F1, 32, 20, 52, FD
  24. 1110 DATA   50, 4D, 2E, 0D, 0A,   24, 53, 79, 73, 74,   65, 6D, 20, 45, 10
  25. 1120 DATA   72, 72, 6F, 72, 2E,   0D, 0A, 24, D2
  26.